;;; SOME FUNCTION SHOULD DO THIS, AND ITS NAME SHOULD BE SET INTO 
;;   SAIL-MAIL-SERVICE

	MAIL 2,(R)		;READ THE MAIL
	JRST DSMINT
	HLRZ D,(R)		;VALIDATION
	CAIE D,(SIXBIT \EPR\)
	 JRST MAII1
	HRRZ D,(R)
	CAME D,@VEJOBNUM
	 JRST MAII1
	MOVE D,1(R)		;TYPE
	MOVEI R,TRUTH
	MOVEM R,V.MAILINT
	CAIN D,7
	 EXIT 1,		;SUICIDE
	CAIE D,6		;CONTROL CHAR?
	 JRST DSMINT		;NO, JUST REPORT THE INCIDENT
	SETZM V.MAILINT
	MOVE D,V.MAIADR
	MOVE D,2(D)
	TRO D,400000+%TXCTL

MAII1:SETZM V.MAILINT